Module IMGS
    Public Function EditOpacity(ByVal bmp As Bitmap, ByVal Alpha As Integer) As Bitmap
        Dim clr As New Color
        For x = 0 To bmp.Width - 1
            For y = 0 To bmp.Height - 1
                clr = bmp.GetPixel(x, y)
                bmp.SetPixel(x, y, Color.FromArgb(Alpha, clr.R, clr.G, clr.B))
            Next
        Next
        Return bmp
    End Function
End Module
